1 REM    ************************
2 REM    *         DEMO         *
3 REM    *  SUBROUTINE-RESTORE  *
4 REM    ************************
5 PRINT"[147]      TASTE DRUECKEN !"
6 PRINT:PRINT
10 X=INT(RND(TI)*3)+1
20 ONXGOSUB1000,2000,3000
25 POKE65,PEEK(122):POKE66,PEEK(123)
30 READ A$:PRINTA$
50 DATA " HAUPTPRG."
100 GOTO10
1000 REM   *** SUBROUTINE 1 ***
1005 :
1010 POKE65,PEEK(122):POKE66,PEEK(123)
1020 FORI=1TO4:READA:PRINTA;:NEXT
1030 READA$:PRINTA$;
1040 POKE198,0:WAIT198,1
1050 DATA 1,11,111,1111,"UP1  "
1060 RETURN
1070 :
2000 REM   *** SUBROUTINE 2 ***
2005 :
2010 POKE65,PEEK(122):POKE66,PEEK(123)
2020 FORI=1TO4:READA:PRINTA;:NEXT
2030 READA$:PRINTA$;
2040 POKE198,0:WAIT198,1
2050 DATA 2,22,222,2222,"UP 2 "
2060 RETURN
2070 :
3000 REM   *** SUBROUTINE 3 ***
3005 :
3010 POKE65,PEEK(122):POKE66,PEEK(123)
3020 FORI=1TO4:READA:PRINTA;:NEXT
3030 READA$:PRINTA$;
3040 POKE198,0:WAIT198,1
3050 DATA 3,33,333,3333,"UP  3"
3060 RETURN
3070 :